home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / l2101a.zip / ITEMS.REF < prev    next >
Text File  |  1997-07-06  |  18KB  |  981 lines

  1. ;Items file
  2.  
  3. @#DIARY
  4. ;Barak's diary
  5. @show
  6. `r0`c  `r1`%  Reading Barak's Diary  `r0
  7.  
  8.   `r1`%  2-24  `r0
  9.  
  10.   `2Turgon embarressed me in front of the students again.  He has no right
  11.   to do this.
  12.  
  13. `k  `r1`%  2-29  `r0
  14.  
  15.   `2I was beat by a student with 24 experience today!  Turgon told Aragorn
  16.   and Santiger about it immediately... gawd I hate him!
  17.  
  18. `k  `r1`%  3-03  `r0
  19.  
  20.   `2Mother made some pointed comments about how nice it would be if I got
  21.   my own place.. that old hag, I'll show her I make plenty of money!
  22.  
  23. `k  `r1`%  3-23  `r0
  24.  
  25.   `2I took 20 gems from the student gem deposit today.  No one saw me.
  26.  
  27.   I now am afraid to try to sell them...  I will wait until people forget.
  28.  
  29. `k  `r1`%  4-03  `r0
  30.  
  31.   `2Turgon saught me out today in an attempt to 'teach me the proper way
  32.   to handle twin swords'.  I can't believe his ego!  It was all I could do
  33.   to tell him I was busy.
  34.  
  35. `k  `r1`%  4-12  `r0
  36.  
  37.   `2I have only just become sober.  Last night I did something terrible..
  38.   In a drunken rage while others were at a party celebrating the death of
  39.   `4The Red Dragon`2 (it was one of Turgon's students that did it.. I will
  40.   never hear the end of this) I went to Turgon's house and hid the gems
  41.   behind his bookshelf.
  42.  
  43.   My heart is heavy now, I hope the gems are never found.
  44.  
  45. `k  `r1`%  4-18  `r0
  46.  
  47.   `2TURGON SUCKS!  I decided to play some dice for a few minutes during
  48.   training with some students and was reprimanded by Turgon himself in
  49.   front of everyone.  Even Halder was laughing!
  50.  
  51.   Later I left an anonymous note at the councils door.  I told them Turgon
  52.   had taken the gems, and I told them exactly where to find them.  I hope
  53.   that old coot has not found them and moved them...
  54.  
  55. `k  `r1`%  4-22  `r0
  56.  
  57.   `2Turgon has been banashed from Greentree!  Things could not have worked
  58.   more beautifully!!!  I told the council today that Turgon had been stealing
  59.   things all along.. it explained many disappearances..<snicker> I told them
  60.   all the other trainers but I took part - and it was I wrote the note.
  61.  
  62. `k  `r1`%  4-23  `r0
  63.  
  64.   `2The council has made me the master trainer for my 'service to the 
  65.   community'.  I will finally be able to start the Barak Training center
  66.   like I have always dreamed!
  67.  
  68.   `0That was the last entry.
  69.  
  70. `k
  71.   @run stats in gametxt.ref
  72.   @closescript
  73.  
  74. @#SMACK
  75. @clearblock 13 23
  76. @do move 1 13
  77. @show
  78.   `2To use this item press Z from the map screen.
  79.  
  80. `k
  81. @
  82.  
  83. @#MOON
  84. ;Gryphon Moon
  85. @clearblock 13 23
  86. @do move 1 13
  87. @show
  88.   `2The `%Gryphon Moon`2 comes alive in your hands.
  89.  
  90.   Did the sun move backwards a bit?
  91.  
  92. @if `p11 < `v05 then `p11 + 500
  93. @clearblock 5 11
  94. @routine drawstats in gametxt.ref
  95. @do move 1 17
  96. @key
  97. @#WAND
  98. @if castle3.dat exist false then do
  99.   @begin
  100.   @show
  101. `r0`c  `r1 `0WAVING YOUR WAND ALL ABOUT `r0
  102.  
  103. `2  This wand is dead and lifeless.  This means nobody currently owns the
  104.   `%Wizard Tower`2.
  105.  
  106. `k
  107.   @run stats in gametxt.ref
  108.   @closescript
  109.   @end
  110.  
  111. @readfile castle3.dat
  112. `p20
  113. `s01
  114. @
  115. ;load owner and current password
  116.  
  117.  
  118.  
  119.  
  120. @if `p20 not &playernum then do
  121.   @begin
  122.   @do upcase `s01
  123.   @if `s01 is NONE then do
  124.   @begin
  125.   @do `s04 is getname `p20
  126.   @show
  127. `r0`c  `r1 `0WAVING YOUR WAND ALL ABOUT `r0
  128.  
  129.   `%A light appears over the wand!  `2Something leans out...
  130.  
  131. `k`2  The face of mighty wizard `0`s04`2 scowls at you.
  132.  
  133.   `0"I am not allowing anyone to enter my castle by any means!"
  134.  
  135.   `2As quick as that the light is gone.
  136.  
  137. `k
  138.   @run stats in gametxt.ref
  139.   @closescript
  140.   @end
  141.  
  142.   @show
  143. `r0`c  `r1 `0WAVING YOUR WAND ALL ABOUT `r0
  144.  
  145. `2  Say what incantation while you wave?
  146.    @do write
  147. `\  `2Say what? :`x
  148.   @do readstring 40 NIL `s03 
  149.   @do upcase `s03
  150.   @do upcase `s01
  151.  
  152.   @if `s03 is `s01 then do
  153.     @begin
  154.     @itemexit
  155.     @do x is 44
  156.     @do y is 15
  157.     @do map is 1176
  158.     @loadmap &map
  159.     @drawmap
  160.     @update
  161.     @do quebar
  162. `%AWESOME!
  163.     @closescript
  164.     @end
  165. @do `p02 / 2
  166. @show
  167. `\`\  `2The wand grows hot and burns you!  `bOUCH!
  168.  
  169.   `2If only you knew the right thing to say...
  170.  
  171. `k
  172.   @run stats in gametxt.ref
  173.   @closescript
  174.   @end
  175.  
  176.     @itemexit
  177.     @do x is 44
  178.     @do y is 15
  179.     @do map is 1176
  180.     @loadmap &map
  181.     @drawmap
  182.     @update
  183.     @do quebar
  184. `%WHAT A RIDE!
  185.     @closescript
  186.  
  187.  
  188.  
  189. @#QUEST
  190. ;help them remember where they need to deliver something
  191.  
  192. ;get location and name
  193. @do `p20 is `p15
  194. @routine getname in quest.ref
  195. @routine getplace in quest.ref
  196.  
  197. @clearblock 13 23
  198. @do move 1 13
  199. @do `s02 is `2You`xstarted`xthis`xquest`x`0`p32`2`xdays`xago.
  200. @if `p32 is 0 then `s02 is You`xstarted`xthis`xquest`xtoday.
  201. @if `p32 is 1 then `s02 is `2You`xstarted`xthis`xquest`xyesterday.
  202. @show
  203.   `2You need to take this to `0`s01`2 in `0`s03`2.
  204.  
  205.   `s02
  206.  
  207. @do `v01 is 1
  208. @do write
  209. `x`x
  210. @choice
  211. Continue your journey
  212. Throw the thing away like a bad little s&boy
  213. @if responce is 1 then do
  214.   @begin
  215.   @closescript
  216.   @end
  217.  
  218. //setting quest stuff to 0, they chose throw sack away
  219. @do `p14 is 0
  220. @do `p15 is 0
  221. @do `p16 is 0
  222. @do `p17 is 0
  223.  
  224. //take away quest items
  225.  
  226. @do `i44 is 0
  227. @do `i45 is 0
  228. @do `i46 is 0
  229. @do `i47 is 0
  230. @do `i48 is 0
  231. @show
  232. `r0
  233.  
  234.   You chuck it behind some bushes.  Haw!
  235.  
  236. `k
  237. @closescript
  238. @#item1
  239. ;Wildberrys
  240. @clearblock 13 23
  241. @do move 1 13
  242. @show
  243.   `2You chug 'em down.  Boy do they taste good.
  244.  
  245. @if `p02 less `p03 then do
  246.  @begin
  247.  @show
  248.   `%You feel a little better.
  249.  
  250.  @do `p02 + 1
  251.  @savecursor
  252.  @clearblock 5 11
  253.  @routine drawstats in gametxt.ref
  254.  @loadcursor
  255. @end
  256.  
  257. @key
  258.  
  259. @#item2
  260. ;poisonberrys
  261. @clearblock 13 23
  262. @do move 1 13
  263. @show
  264.   `2You slurp it up.  It tastes ok at first but then... `bACK!`2
  265.  
  266.   You hook all over the place!
  267.  
  268.   `4HITPOINTS GO DOWN BY ONE.
  269. @if `p02 more 0 then `p02 - 1
  270. @clearblock 5 11
  271. @routine drawstats in gametxt.ref
  272. @do move 1 19
  273. @key
  274.  
  275.  
  276. @#item3
  277. ;Milk          
  278. @clearblock 13 23
  279. @do move 1 13
  280. @show
  281.   `2You down the cow juice.
  282.  
  283.   `2It's a little warm, but thats how ya like it!
  284.  
  285. `k
  286. @
  287.  
  288.  
  289. @#item5
  290. ;Green potion
  291. @clearblock 13 23
  292. @do move 1 13
  293. @show
  294.   `2You drink the green liquid.
  295.  
  296. @if `p02 less `p03 then do
  297.  @begin
  298.  @show
  299.   `%You feel better!
  300.  
  301.  @do `p02 + 10
  302.  @if `p02 more `p03 then `p02 is `p03
  303.  @savecursor
  304.  @clearblock 5 11
  305.  @routine drawstats in gametxt.ref
  306.  @loadcursor
  307. @end
  308.  
  309. @key
  310.  
  311.  
  312. @#item7
  313. ;Flute
  314. @if bitcheck `t14 1 1 then do
  315.   @begin
  316.   @if bitcheck `t14 2 0 then do
  317.   @begin
  318.   @clearblock 13 23
  319.   @do move 1 13
  320.   @show
  321.   `2You don't know any songs.  Damn!
  322.  
  323. `k
  324.   @closescript
  325.   @end
  326.   @do `v01 is 1
  327.   @show
  328. `r0`c  `r1  Playing your flute  `r0
  329.  
  330.   `2Play what?
  331.  
  332. @do write
  333. `x`x
  334. @choice
  335. Remembering the past
  336. Remembering the present
  337. Play nothing
  338. @if responce is 3 then do
  339.   @begin
  340.   @run stats in gametxt.ref
  341.   @closescript
  342.   @end
  343.  
  344.   @if responce is 2 then do
  345.   @begin
  346.   @show
  347. `\`\  `2You play the song.  You will never forget this place.
  348.  
  349. `k
  350.   @do `t15 is x
  351.   @do `t16 is y
  352.   @do `p36 is &map
  353.   @run stats in gametxt.ref
  354.   @closescript
  355.   @end
  356.  
  357.   @if responce is 1 then do
  358.   @begin
  359.   @if `t15 is 0 then do
  360.     @begin
  361.   @show
  362. `\`\  `2Nothing happpens.  Maybe you should try the other song...
  363.  
  364. `k
  365.  
  366.     @do goto item7
  367.     @end
  368.  
  369.   @show
  370. `\`\  `2You play the song.  You are moved by your performance!
  371.  
  372. `k
  373.   @do x is `t15
  374.   @do y is `t16
  375.   @do map is `p36
  376.   @loadmap &map
  377.   @itemexit
  378.   @drawmap
  379.   @update
  380.   @closescript
  381.   @end
  382.  
  383.  
  384.  
  385.   @end
  386.  
  387. @clearblock 13 23
  388. @do move 1 13
  389. @show
  390.   `2No sound comes out, must be broke.
  391.  
  392. `k
  393. @
  394.  
  395.  
  396. @#item8
  397. ;momma's pie
  398. @clearblock 13 23
  399. @do move 1 13
  400. @show
  401.   `2You messily chow down the berry pie.
  402.  
  403.   After a satisfying belch, the pie is gone.
  404.  
  405. @if `p02 less `p03 then do
  406.  @begin
  407.  @do `p02 + 50
  408.  @if `p02 > `p03 then `p02 is `p03
  409.  @savecursor
  410.  @clearblock 5 11
  411.  @routine drawstats in gametxt.ref
  412.  @loadcursor
  413. @end
  414.  
  415.  
  416. @key
  417.  
  418. @#item11
  419. ;talking to little girl
  420. @do `v01 is 1
  421. @label item11s
  422. @show
  423. `r0`c  `r1 `0TALKING TO YOUR CHARGE `r0
  424.  
  425. `2  You motion the girl to sit down so that you may speak with her.
  426.  
  427. @do write
  428. `x`x
  429. @choice
  430. `%Where is your mother waiting for you again?
  431. What were you doing so far from town?
  432. `4Kill her.
  433. `%Nevermind
  434. @if response is 1 then do
  435.  @begin
  436.  @show
  437. `\`\  `0"My mommy is waiting for me at the `4Red Dragon Inn`0.  Please, lets hurry,
  438.   before she leaves!"
  439.  
  440. `k
  441.  @do goto item11s
  442.  @end
  443.  
  444. @if response is 2 then do
  445.  @begin
  446.  @show
  447. `\`\  `0"I was picking flowers and.. I wanna go home!" `2the girl cries.
  448.  
  449. `k
  450.  @do goto item11s
  451.  @end
  452.  
  453. @if response is 3 then do
  454.  @begin
  455.  @show
  456. `\`\  `$"Come here, small one.  I won't hurt you." `2you beckon.
  457.  
  458. `2  The child slowly advances towards you.  `0"Yes sir?"
  459.  
  460. @do write
  461. `x`x
  462. @do `v01 is 1
  463. @choice
  464. End her life.
  465. Have mercy on her.
  466. @if responce is 2 then do
  467.   @begin
  468.   @show
  469. `\`\  `$"I just wanted to... Straighten your dress.  There, all better."
  470.  
  471. `2  She thanks you.  If only she knew how close you had come to...
  472.  
  473. `k
  474.   @do `v01 is 3
  475.   @do goto item11s
  476.   @end
  477.  
  478.  @show
  479. `\`\  `2You quickly crush the life out of her.  In a few moments, it is over.
  480.  
  481. `k  `2Looking down at her lifeless body you are saddened.  What ever posessed
  482.   you to do this awful thing?
  483.  
  484.   `4ALIGNMENT GOES DOWN BY ONE.
  485.  
  486. `k
  487.  @do `i11 is 0
  488.  @do `p07 - 1
  489.  @end
  490.  
  491.  
  492.  
  493. @run stats in gametxt.ref
  494.  
  495.  
  496. @#ITEM17
  497. ;Gloworm
  498. @clearblock 13 23
  499. @do move 1 13
  500.  
  501. @if map is 1289 then do
  502.   @begin
  503.    @show
  504.   `2You bite into the little guy.
  505.  
  506.   `$Your mouth is glowing!
  507.  
  508. `k  `%The area is much brighter now.  Good thinking!
  509.  
  510. `k
  511.  
  512. @do map is 1285
  513. @loadmap 1285
  514.  @closescript
  515.   @end
  516.  
  517.  
  518.  
  519. @show
  520.   `2You bite into the little guy.
  521.  
  522.   `$Your mouth is glowing!
  523.  
  524. `k  `2Gee, it would be more fun in the dark, you can't really see it glow here.
  525.  
  526. `k
  527. @
  528.  
  529. @#item18
  530. ;talking to hector
  531. @do `v01 is 1
  532. @label item18s
  533. @show
  534. `r0`c  `r1 `0TALKING TO HECTOR `r0
  535.  
  536. `2  You let the bird poke his head out to speak with you.
  537.  
  538. @do write
  539. `x`x
  540. @choice
  541. How do you know the old woman wants to eat you?
  542. Taunt the bird
  543. Set Hector free
  544. Want a cracker?
  545. `%Nevermind
  546. @if response is 1 then do
  547.  @begin
  548.  @show
  549. `\`\  `0"That witch has told me so, dozens of times!  Awk! She kept me locked
  550.   up for months trying to fatten me up!"
  551.  
  552. `k  `$"Why did she 'enchant' you into a bird?  Why does she hate you so much?"
  553.  
  554.   `0"I threw stones at her shack with some friends.  Now I'm paying for it!"
  555.  
  556. `k
  557.  @do goto item18s
  558.  @end
  559.  
  560. @if response is 2 then do
  561.  @begin
  562.  @show
  563. `\`\  `$"Say... Hector.  You are gonna taste MIGHTY fine in the old woman's stew!"
  564.  
  565.   `0"Awk!  No!  Please let me go!"
  566.  
  567. `k  `$"Haha... and lose my main course?  I don't think so." `2you laugh.
  568.  
  569. `k
  570.  @do goto item18s
  571.  @end
  572.  
  573. @if response is 4 then do
  574.  @begin
  575.  @show
  576. `\`\  `$"Little birdy wordy wanna cracker?" you ask.
  577.  
  578. `0  "I most certainly do not!" `2Hector sqawks indignantly.
  579.  
  580. `k
  581.  @do goto item18s
  582.  @end
  583.  
  584.  
  585. @if response is 3 then do
  586.  @begin
  587.  @show
  588. `\`\  `$"Hector.  If I let you go...  Will you be a good bird?" `2you ask.
  589.  
  590. `2  Hector violently nods his beak.
  591.  
  592. @do write
  593. `x`x
  594. @do `v01 is 1
  595. @choice
  596. Throw Hector into the sky
  597. Put him back in your pouch
  598. @if response is 1 then do
  599.   @begin
  600.   @show
  601. `\`\  `$Fly, Hector!  Fly!" `2you exclaim as you toss Hector up.
  602.  
  603. `k  The bird sqawks with joy - and soon is gone.
  604.  
  605.   `%ALIGNMENT GOES UP BY 20.  2 QUEST POINTS GAINED.
  606.  
  607. `k
  608.   @do `i18 is 0
  609.   @do `t08 is 3
  610.   @do `p07 + 20
  611.   @do `p18 + 2
  612.   @run stats in gametxt.ref
  613.   @end
  614.  
  615.  @show
  616. `\`\  `$"Well... I was just kidding, so get back into that bag!"
  617.  
  618. `k
  619.  @do `v01 is 3
  620.  @do goto item18s
  621.  @end
  622.  
  623. @run stats in gametxt.ref
  624.  
  625. @#item19
  626. ;Eating the apple
  627. @clearblock 13 23
  628. @do move 1 13
  629. @show
  630.   `2It tastes delicious.
  631.  
  632. `k
  633. @
  634.  
  635. @#item20
  636. ;Using the map.
  637. @clearblock 13 23
  638. @do move 1 13
  639. @show
  640.   `2To use this item, press `0M`2 from the 'map' menu.
  641.  
  642. `k
  643. @
  644.  
  645. @#item22
  646. ;Using the map.
  647. @clearblock 13 23
  648. @do move 1 13
  649.  
  650. @if `i22 < 1 then goto fail22
  651. @if `i23 < 1 then goto fail22
  652. @if `i24 < 1 then goto fail22
  653. @if `i25 < 1 then goto fail22
  654.  
  655. @show
  656.   `2You carefully fit all four pieces of this strange wand together...
  657.  
  658. `k  `%THE WAND COMES TO LIFE, BURNING IN YOUR HANDS. (YOU GET A QUEST POINT!)
  659.  
  660. `k  `0YOU ARE TELEPORTED TO A STRANGE AND WONDEROUS PLACE!
  661.  
  662.   `2You discard the now burned out wand.
  663. `\`k  `2Somehow you feel safe here - as though you were back in your mother's
  664.   womb and she was laying in a bed stomach down. `k
  665.  @do map is 154
  666.  @do x is 14
  667.  @do y is 12
  668.  @do `i22 - 1
  669.  @do `i23 - 1
  670.  @do `i24 - 1
  671.  @do `i25 - 1
  672.  @do `p18 + 1
  673.  @loadmap 154
  674.  
  675.  @itemexit
  676.  @drawmap
  677.  @update
  678.  @closescript
  679.  
  680.  
  681. @label fail22
  682. @show
  683.   `2You can't seem to make it work.  Pieces are missing it looks like.
  684.  
  685. `k
  686. @
  687.  
  688. @#ITEM28
  689. ;Casting the fishing rod
  690. @clearblock 13 23
  691. @do move 1 13
  692. @show
  693.   `2You practice casting.  Can't wait for a fishing dock to try this out
  694.   on!
  695.  
  696. `k
  697. @
  698.  
  699. @#item40
  700. ;Blue potion, heals 50
  701. @clearblock 13 23
  702. @do move 1 13
  703. @show
  704.   `2You drink the blue liquid.
  705.  
  706. @if `p02 less `p03 then do
  707.  @begin
  708.  @show
  709.   `%You feel better!
  710.  
  711.  @do `p02 + 50
  712.  @if `p02 more `p03 then `p02 is `p03
  713.  @savecursor
  714.  @clearblock 5 11
  715.  @routine drawstats in gametxt.ref
  716.  @loadcursor
  717. @end
  718.  
  719. @key
  720.  
  721.  
  722. @#ITEM41
  723. ;Reading ma's letter
  724. @clearblock 13 23
  725. @do move 1 13
  726. @show
  727.   `2The letter reads:
  728.  
  729.   `%Dear brother, Elle is with child.  The tramp must be taught a lesson
  730.   only you can teach.  Please bring what you need, and hurry.
  731.  
  732. @if bitcheck `t12 6 0 then do
  733.   @begin
  734.   @bitset `t12 6 1
  735.   @do `p07 - 5
  736.  @savecursor
  737.  @clearblock 5 11
  738.  @routine drawstats in gametxt.ref
  739.  @loadcursor
  740.   @show
  741.   `4Your alignment goes down by 5.
  742.  
  743.   @end
  744. @show
  745. `k
  746. @
  747.  
  748. @#ITEM42
  749. ;Talking to Laura and Edward
  750. @show
  751. `r0`c  `r1  Talking with Laura and Uncle Edward  `r0
  752.  
  753.   `2Laura's pretty face is dirty but determined.  Edward is panting
  754.   heavily.
  755.  
  756. @do write
  757. `x`x
  758. @do `v01 is 1
  759. @choice
  760. Talk to Laura
  761. Talk to Uncle Edward
  762. Talk to nobody
  763. @if response is 1 then do
  764.   @begin
  765.   @show
  766. `\`\  `$"Hey uh.. Laura.  You got a boyfriend?" `2you casually
  767.   ask.
  768.  
  769. `k  `0"Not yet.  Maybe after all this is over you can come over and talk
  770.   to me about it?"
  771.  
  772. `k  `$"You bet!  What are friends for?" `2you grin.
  773. `\`k
  774.   @do goto item42
  775.   @closescript
  776.   @end
  777.  
  778. @if response is 2 then do
  779.   @begin
  780.   @show
  781. `\`\  `2You feel this might be a bad idea.  You sure?
  782.  
  783.   @do `v01 is 1
  784.   @do write
  785. `x`x
  786.   @choice
  787. Yes, talk to 'em
  788. Good call
  789.   @if response is 2 then do
  790.     @begin
  791.     @do goto item42
  792.     @closescript
  793.     @end
  794.    @show
  795. `\`\  `$"Friend Edward!  Why do you live with your niece?, anyway?" `2you ask,
  796.   carefully shielding your mouth with one hand.
  797.  
  798. `k  `0"Well - Laura's parents were killed by `4Dragon Tooth `0riders.  They
  799.   burned down her whole village a few months ago.  She survived... but
  800.   not without scars.  Luckily I was there to help."
  801.  
  802. `k
  803.   @do goto item42
  804.   @closescript
  805.   @end
  806.  
  807.  
  808.  
  809.   @run stats in gametxt.ref
  810.  
  811.  @#ITEM50
  812.  ;travel potion
  813. @clearblock 13 23
  814. @do move 1 13
  815. @show
  816.   `2You empty the vial's contents down your throat.
  817.  
  818. `k  `2Your mind begins to spin...  Streaks of light dance in your head
  819.   at your command.  You are the ruler of this universe of brilliance -
  820.   and then... it all stops.
  821.  
  822. `k
  823. @itemexit ;this will cause it to exit to the map screen directly after
  824.           ;finishing this .ref
  825.  
  826. @do `p20 random 9 1
  827.  
  828. @if `p20 is 1 then do
  829.   @begin
  830.   @do map is 1498
  831.   @do x is 49
  832.   @do y is 6
  833.   @end
  834.  
  835. @if `p20 is 2 then do
  836.   @begin
  837.   @do map is 1271
  838.   @do x is 28
  839.   @do y is 11
  840.   @end
  841.  
  842. @if `p20 is 3 then do
  843.   @begin
  844.   @do map is 379
  845.   @do x is 55
  846.   @do y is 4
  847.   @end
  848.  
  849. @if `p20 is 4 then do
  850.   @begin
  851.   @do map is 1255
  852.   @do x is 58
  853.   @do y is 6
  854.   @end
  855.  
  856. @if `p20 is 5 then do
  857.   @begin
  858.   @do map is 1576
  859.   @do x is 24
  860.   @do y is 4
  861.   @end
  862.  
  863. @if `p20 is 6 then do
  864.   @begin
  865.   @do map is 1029
  866.   @do x is 27
  867.   @do y is 10
  868.   @end
  869.  
  870. @if `p20 is 7 then do
  871.   @begin
  872.   @do map is 1358
  873.   @do x is 66
  874.   @do y is 3
  875.   @end
  876.  
  877. @if `p20 is 8 then do
  878.   @begin
  879.   @do map is 1093
  880.   @do x is 44
  881.   @do y is 10
  882.   @end
  883.  
  884. @if `p20 is 9 then do
  885.   @begin
  886.   @do map is 1035
  887.   @do x is 46
  888.   @do y is 11
  889.   @end
  890.  
  891.  
  892. @loadmap &map
  893. @drawmap
  894. @update
  895.  
  896. @#item52
  897. ;Red potion
  898. @clearblock 13 23
  899. @do move 1 13
  900. @show
  901.   `2You slurp down the strange concoction.
  902.  
  903. `k  `%MAX HITPOINTS INCREASED BY FIVE.
  904.  
  905. `k
  906. @do `p03 + 5
  907.  @clearblock 5 11
  908.  @routine drawstats in gametxt.ref
  909.  
  910. @#item53
  911. ;Gold potion
  912. @clearblock 13 23
  913. @do move 1 13
  914. @show
  915.   `2You slurp down the strange concoction.
  916.  
  917. `k  `%MUSCLE INCREASED BY TWO.
  918.  
  919. `k
  920. @do `p04 + 2
  921.  @clearblock 5 11
  922.  @routine drawstats in gametxt.ref
  923.  
  924. @#item54
  925. ;Silver potion
  926. @clearblock 13 23
  927. @do move 1 13
  928. @show
  929.   `2You slurp down the strange concoction.
  930.  
  931. `k  `%DODGE INCREASED BY ONE.
  932.  
  933. `k
  934. @do `p05 + 1
  935.  @clearblock 5 11
  936.  @routine drawstats in gametxt.ref
  937.  
  938. @#item55
  939. ;White potion
  940. @clearblock 13 23
  941. @do move 1 13
  942. @show
  943.   `2You drink the white liquid.
  944.  
  945. @if `p02 less `p03 then do
  946.  @begin
  947.  @show
  948.   `%You feel better!
  949.  
  950.  @do `p02 + 200
  951.  @if `p02 more `p03 then `p02 is `p03
  952.  @savecursor
  953.  @clearblock 5 11
  954.  @routine drawstats in gametxt.ref
  955.  @loadcursor
  956. @end
  957.  
  958. @key
  959.  
  960. @#item66
  961. ;Koshi Snack
  962. @clearblock 13 23
  963. @do move 1 13
  964. @show
  965.   `2You chomp down the strange cookie.
  966.  
  967.   `%YOU ARE FULLY HEALED.
  968.  
  969.  @do `p02 is `p03
  970.  @savecursor
  971.  @clearblock 5 11
  972.  @routine drawstats in gametxt.ref
  973.  @loadcursor
  974. @end
  975.  
  976. @key
  977.  
  978.  
  979. @#NOMOREITEMS
  980.  
  981.